home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / InetDial / AREXX / mdr_refresh.awebrx < prev    next >
Encoding:
Text File  |  2000-07-23  |  593 b   |  23 lines
  1. /*rx )À2000 MDR partial refresh prog */
  2.  
  3. ports = SHOW('P')
  4. PARSE VAR ports dummy 'AWEB.' portnr .
  5. ADDRESS VALUE 'AWEB.' || portnr
  6. OPTIONS RESULTS
  7.  
  8. IF (portnr >0) THEN DO
  9.    'GET ACTIVEPORT'
  10.    ADDRESS VALUE RESULT
  11.    i=1
  12.    'GET URL var url'
  13.  
  14.    IF URL='http://localhost/cgi-bin/mdrserver_r_control23.rexx?' then i=2
  15.    IF URL='http://localhost/cgi-bin/mdrserver_r_control23.rexx' then i=2
  16.    IF URL='http://localhost/cgi-bin/mdrserver_r_control3.rexx?' then i=3
  17.    IF URL='http://localhost/cgi-bin/mdrserver_r_control3.rexx' then i=3
  18.  
  19.    IF i=2 THEN 'RELOAD'
  20.    IF i=3 then 'RELOAD'
  21. END
  22. EXIT
  23.